home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / workbench-tools / runner / install-script < prev    next >
Encoding:
Text File  |  1997-06-27  |  7.4 KB  |  319 lines
  1. ; $VER: Runner V1.01 Install Version 1.01 (28.6.97)
  2. ; Installations-Script - na, wofür wohl?
  3. ; 
  4.  
  5. (complete 0)
  6.  
  7. ; Die Versionsnummer und das Erstellungs-Datum der hier installierten
  8. ; Versionen.
  9.  
  10. (set Runner-version "1.01")
  11. (set Runner-Datum "(28.Jun 97)")
  12.  
  13. ;====================================================================
  14. ; Initialisierungen
  15.  
  16.  
  17. (set @default-dest "")
  18.  
  19. (set os-version (/ (getversion) 65536))
  20. (set os-13 (< os-version 36))
  21. (set os-20 (>= os-version 36))
  22. (set os-21 (>= os-version 38))
  23.  
  24. (set totalmem (database "total-mem")) ; Diese schöne Funktion vereinfacht einiges
  25.  
  26. ; Die Pfadnamen der einzelnen Quell-Dateien.
  27.  
  28.  
  29. (set #Startsource         (tackon (pathonly @icon) "Start/"))     ; Hier steht das Verzeichnis
  30. (set #libssource         (tackon (pathonly @icon) "libs"))     ; Hier steht das Verzeichnis
  31. (set source-Runner             (tackon (pathonly @icon) "Runner"))        ; Hauptprogramm 
  32.  
  33.  
  34.  
  35. ;(set !auswahlhilfe
  36. ;    (cat "\nAuf der Festplatte befindet sich bereits eine Version "
  37. ;        "der Datei die installiert werden soll. \n\n"
  38. ;        "Wähle \"Ja\", wenn Sie die alte Datei mit der neuen "
  39. ;        "überschreiben möchten. Anderenfalls wähle bitte \"Nein\"!\n"))
  40.  
  41. (set #prp-copy-Start
  42.     "Kopiere das Hauptarchiv")
  43.  
  44. (set #prp-copy-libs
  45.     "Kopiere library")
  46.  
  47. (set prp-copy-Runner
  48.     "Ein Hauptprogramm ")
  49.  
  50.     
  51. ; Die Dateigrößen
  52.  
  53. (set size-Runner            130000)
  54. (set size-Runner.guide                31000)
  55. (set size-R_Konfiguration                22000)
  56. (set size-library                200000) 
  57.  
  58. (set size-komplett    ( + size-library size-Runner size-Runner.guide size-R_Konfiguration  size-libs))
  59.  
  60. ;=====================================================================================
  61. ; Beginn der Installation
  62. ;=====================================================================================
  63.  
  64. ; Eine kleine Einleitung, gefolgt vom Startbild des Installers.
  65.  
  66. (set act-user-level @user-level)
  67. (user 1)
  68.  
  69. (message (cat    "\nWillkommen zur Installation des \n\n\"Runner Startup-Tool "
  70.                     "Version: " Runner-version " vom "Runner-Datum "\"!\n\n"
  71.                     "Dieses Skript kopiert die verschiedenen Dateien, "
  72.                     "aus denen sich das Archiv zusammensetzt, "
  73.                     "auf Dein Datenträger,in eine Schublade namens `Start`.\n\n"
  74.                     "Bevor es los geht!\n\n Sollte eine zusätzliche Schublade gewählt werden, ist "
  75.                     "nach dem letzten Wort im Dateipfad ein `/` einzufügen."))
  76.  
  77. (user act-user-level)
  78. (welcome)
  79.  
  80. (complete 5)
  81.  
  82. (set act-user-level @user-level)
  83. (user 1)
  84.  
  85.  
  86. ;    Alte Version prüfen und entsprechende Warnung ausgeben! **************************************************************
  87.  
  88. (set folder "WORK:")
  89.  
  90. (if (<> (getassign "Runner") "")
  91.     (
  92.         (message (cat    "Auf Deiner Festplatte befindet sich bereits eine "
  93.                         "Installation von Runner! Wähle einfach die bereits "
  94.                         "vorhandene Schublade an, wenn Du was ändern "
  95.                         " möchtest! \n\n"))
  96.                          
  97.  
  98.     (set folder (getassign "Runner"))
  99.     )
  100. )
  101.  
  102. (makeassign "Runner")
  103.  
  104. (user act-user-level)
  105.  
  106. (if (= @user-level 0)
  107.     (
  108.     (user 1)
  109.     (message (cat    "Im Einsteiger-Modus wird davon ausgegangen, daß Runner auf "
  110.                         "einer Festplatte installiert wird, auf der noch mindestens "
  111.                         "ca. 380kByte freier Speicherplatz verfügbar ist. Du wirst "
  112.                         "dazu im nächsten Fenster nach dem Namen der gewünschten "
  113.                         "Schublade gefragt.\n\n"))))
  114.  
  115. (set ok 0)
  116. (while (not ok)
  117.     (set folder
  118.         (askdir
  119.             (prompt "Auswahl des Pfades für die Installation.\nBitte wähle eine Schublade!")
  120.             (help (cat    "    Du kannst über das Symbol 'Laufwerke anz.' (bzw. 'Show drives') "
  121.                             "eine Übersicht über alle Laufwerke Deines Amiga anfordern;  "
  122.                             "Runner kann  in eine Schublade oder aber auf eine "
  123.                         "Partition direkt installiert werden! "
  124.                             @askdir-help))
  125.             (default folder )
  126.             (disk)
  127.         )
  128.     )
  129.  
  130.     ; Die richtige Auswahl könnte zum Beispiel: Work: lauten,
  131.     ; oder Work:Verzeichnisname (wobei für Verzeichnisname 
  132.         ;selbstverständlich ein individuelles konkretes Verzeichnis
  133.     ;existieren muß.
  134.     (if (or (or (<= (substr folder (- (strlen folder) 1) 1) ":")) (= (exists folder (noreq)) 0)) (= (getdiskspace folder) -1))
  135.         (message (cat    "\n Deine Auswahl ist: \"" folder "\" -> aktuelles Verzeichnis\n\n "
  136.                             "Beachte bitte, daß wenn der Dateipfad aus ein oder mehrere Verzeichnisse besteht,"
  137.                             "unbedingt \ndieses -> / <- Zeichen\n hinter den letzen Verzeichnisnamen "
  138.                             "gesetzt werden muß. Das Installskript arbeitet sonst nicht korrekt!!!\n"      
  139.                             "Wenn Du Dir nicht sicher bist breche die Installation ab, sonst ....\n\n" 
  140.                             "Klicke auf Weiter!"))
  141.         ;else
  142.         (
  143.             (set freediskspace (getdiskspace folder))    ; Der freie Speicher auf diesem Medium
  144.  
  145.             (if (< freediskspace size-komplett)
  146.                 (
  147.                 (user 1)
  148.                 (message (cat    "\nAuf der ausgewählten Festplattenpartition "
  149.                                             "steht nicht genügend freier Speicher für die "
  150.                                             "komplette Installation  zur Verfügung.\n\n"
  151.                                             "Freier Speicher " freediskspace "!\n"
  152.                                             "Benötigter Speicher " size-komplett "!\n\n"
  153.                                             "Bitte wähle eine andere Partition, auf "
  154.                                             "mit mehr freien Bytes!"))                
  155.                 )
  156.             ;else
  157.             (set ok 1)
  158.             )
  159.         
  160.     )
  161. )
  162.  
  163. (user act-user-level)
  164.  
  165. (set @default-dest folder)    ; Die Zuweisung ist sehr wichtig!
  166.  
  167. (set destStart    (tackon folder "Start"))
  168. (if                                          ; Haupt-Verzeichnis erzeugen
  169.     (= (exists destStart) 0)
  170.     (makedir destStart (infos))
  171. )
  172.  
  173.  
  174.  
  175.  
  176.  
  177. (complete 20)
  178.  
  179.  
  180.  
  181.  
  182. (copyfiles                                            ; Beispiele kopieren
  183.     (prompt #prp-copy-start)
  184.     (help #hlp-copy-start)
  185.     (source #startsource)
  186.     (dest destStart)
  187.     (all)
  188.     (confirm)
  189. )
  190.  
  191. (complete 50) 
  192.  
  193. (copyfiles                                            ; Libs kopieren
  194.     (prompt #prp-copy-libs)
  195.     (help #hlp-copy-libs)
  196.     (source #libssource)
  197.     (dest "libs:")
  198.     (all)
  199.     (confirm)
  200. )
  201.  
  202.  
  203.  
  204. (complete 60)
  205.  
  206. (set changechoice 1)
  207.  
  208.     (set changechoice
  209.                (askchoice
  210.  (prompt (cat "\n Möchtest Du Runner per WB-Startup Schublade starten"
  211.     "oder lieber von der User-Startup Sequence aus?\n\n"
  212.      "Wegen des Festhaltens der Systemzeit ist es notwendig!"))
  213.            (help @askchoice-help)
  214.              (choices "WB-Startup" "User-Startup")
  215.              (default 0)
  216.       )
  217.             )
  218.  
  219.  
  220. ; ------- STARTUP ÄNDERN
  221. (set command1 (cat  "ASSIGN Runner: " folder "Start\nrun >nil: Runner:Runner"))
  222.            
  223.   ;  (if (set changechoice 1)
  224.  
  225. (copyfiles
  226.         
  227.     (source source-Runner)
  228.     (dest destStart)
  229.     (infos)
  230.  
  231.  
  232. (set command1.txt
  233.     (cat 
  234.          "\n\n\nDamit Runner richtig arbeitet  "
  235.       "muß eine Änderung in der User-Startup vorgenommen werden.\n\n"
  236.          command1
  237.     )
  238.              
  239. )
  240.  
  241.  
  242.  
  243. )
  244.  
  245.  
  246.  
  247.      (if (not changechoice)
  248.  
  249.  
  250. (set command1 (cat  "ASSIGN Runner: " folder "Start"))
  251.  
  252.    )
  253.  
  254. (if (not changechoice)
  255.  
  256. (copyfiles
  257.         (prompt #prp-copy-Hauptprogramm)
  258.     (help #hlp-copy-Hauptprogramm)
  259.     (source source-Runner)
  260.     (dest "SYS:WBStartup")
  261.     (infos)
  262. ))
  263.  
  264.  (complete 80) 
  265.  
  266. (set command1.txt
  267.     (cat 
  268.          "\n\n\nDamit Runner richtig arbeitet  "
  269.       "muß eine Änderung in der User-Startup vorgenommen werden.\n\n"
  270.          command1
  271.     )
  272.              
  273. )
  274.  
  275.  
  276.  
  277.  
  278.  
  279. (startup "runner"
  280.     (prompt command1.txt)
  281.     (help #help-startup)
  282.     (command command1)
  283. )
  284.  
  285. (makeassign "Runner")
  286. (makeassign "Runner"  destStart)
  287.  
  288.  
  289. (complete 95)
  290.  
  291. ; ------- FERTIG
  292.  
  293. (message (cat 
  294.     "Installation  Runner beendet.\n"
  295.    "Falls die Zeilen:\n" command1 "\nnicht in Deiner Startup-Sequence bzw. "
  296.    "User-Startup eingefügt wurde, dann hole dies bitte nach."
  297.    "Das Tool erscheint ab jetzt bei jedem Rechnerstart! \n\n")
  298. )
  299.  
  300.  
  301. (complete 100)
  302.  
  303. (set FREERROR (run "Runner" ))
  304.  
  305. (if  ( <> FREERROR 0)
  306.     (
  307.     (delete "Runner:Start")
  308.     
  309.     (message
  310.         "\n\n\n\n"
  311.         "Fehler bei der Installation.\n"
  312.         "Die Installation war fehlerhaft!\n\n"
  313.         "Überprüfe die Vollständigkeit des Archives!")
  314.     )
  315. )
  316.  
  317.  
  318.  
  319. (exit)